home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 2000 August: Tool Chest / Dev.CD Aug 00 TC Disk 2.toast / pc / sample code / interapplication comm / 7edit / source / svaerecording.c < prev    next >
Encoding:
C/C++ Source or Header  |  2000-06-23  |  30.0 KB  |  1,214 lines
  1. /*
  2.     File:        SVAERecording.c
  3.  
  4.     Contains:    
  5.  
  6.     Written by: Original version by Jon Lansdell and Nigel Humphreys.
  7.                 3.1 updates by Greg Sutton.
  8.  
  9.     Copyright:    Copyright © 1995-1999 by Apple Computer, Inc., All Rights Reserved.
  10.  
  11.                 You may incorporate this Apple sample source code into your program(s) without
  12.                 restriction. This Apple sample source code has been provided "AS IS" and the
  13.                 responsibility for its operation is yours. You are not permitted to redistribute
  14.                 this Apple sample source code as "Apple sample source code" after having made
  15.                 changes. If you're going to re-distribute the source, we require that you make
  16.                 it clear in the source that the code was descended from Apple sample source
  17.                 code, but that you've made changes.
  18.  
  19.     Change History (most recent first):
  20.                 7/20/1999    Karl Groethe    Updated for Metrowerks Codewarror Pro 2.1
  21.                 
  22.  
  23. */
  24.  
  25. #include "SVAERecording.h"
  26.  
  27. #include "SVEditAEUtils.h"
  28. #include "SVEditUtils.h"
  29. #include "SVAEWindowUtils.h"
  30. #include "SVAETextUtils.h"
  31. #include "SVAppleEvents.h"
  32.  
  33. #include <AEPackObject.h>
  34. #include <TextUtils.h>
  35.  
  36.  
  37.  
  38. static short   gBigBrother;
  39. static char    *gTypingBuffer;
  40. static short   gCharsInBuffer;
  41. static AEDesc  gTypingTargetObject;
  42.  
  43. OSErr    InstallRecordingHandlers(void)
  44. {
  45.     OSErr    err;
  46.     
  47.     gBigBrother = 0;
  48.     gCharsInBuffer = 0;
  49.     gTypingBuffer = (char *)NewPtr(32000);
  50.     gTypingTargetObject.dataHandle = 0;
  51.     
  52.     err = AEInstallEventHandler( kCoreEventClass, kAENotifyStartRecording, NewAEEventHandlerProc(HandleStartRecording), noRefCon, false);
  53.     err = AEInstallEventHandler( kCoreEventClass, kAENotifyStopRecording, NewAEEventHandlerProc(HandleStopRecording), noRefCon, false);
  54.  
  55.     return(err);
  56. }
  57.  
  58. pascal OSErr HandleStartRecording(const AppleEvent *theAppleEvent,
  59.                                                           AppleEvent *reply,
  60.                                                           long       handlerRefCon)        
  61. {
  62. #pragma unused (reply,handlerRefCon)
  63.  
  64.     OSErr myErr;
  65.  
  66.     gBigBrother++;
  67.  
  68.     myErr = GotRequiredParams(theAppleEvent);
  69.  
  70.     return(myErr);
  71.     
  72. } // HandleStartRecording
  73.  
  74. pascal OSErr HandleStopRecording(const AppleEvent *theAppleEvent,
  75.                                                          AppleEvent *reply,
  76.                                                              long handlerRefCon)        
  77. {
  78. #pragma unused (theAppleEvent,reply,handlerRefCon)
  79.  
  80.     gBigBrother--;
  81.     return(noErr);
  82. } // HandleStopRecording
  83.  
  84.  
  85. // Make an object specifier for a window given the WindowPtr
  86.  
  87. OSErr    MakeWindowObj(WindowPtr theWindow, AEDesc *result)
  88. {
  89.     AEDesc    nullDesc = {typeNull, NULL},
  90.             absoluteDesc = {typeNull, NULL};
  91.     long    windowIndex;
  92.     OSErr    err;
  93.     
  94.     windowIndex = GetNthWindowOfWindowPtr(theWindow);
  95.     if (! windowIndex)
  96.         return(errAENoSuchObject);
  97.     
  98.     err = AECreateDesc(typeInteger,(Ptr)&windowIndex, sizeof(windowIndex), &absoluteDesc);
  99.     if (noErr != err) goto done;
  100.     
  101.     err = CreateObjSpecifier(cWindow, &nullDesc, formAbsolutePosition,
  102.                                                 &absoluteDesc, false, result);
  103.  
  104. done:
  105.     if (absoluteDesc.dataHandle)
  106.         AEDisposeDesc(&absoluteDesc);
  107.     
  108.     return(err);
  109. } // MakeWindowObj
  110.  
  111. // Make an object specifier for a document given the WindowPtr
  112.  
  113. OSErr    MakeDocumentObj(WindowPtr theWindow, AEDesc *result)
  114. {
  115.     AEDesc    nullDesc = {typeNull, NULL},
  116.             absoluteDesc = {typeNull, NULL};
  117.     long    windowIndex;
  118.     OSErr    err;
  119.     
  120.     windowIndex = GetNthWindowOfWindowPtr(theWindow);
  121.     if (! windowIndex)
  122.         return(errAENoSuchObject);
  123.     
  124.     err = AECreateDesc(typeInteger,(Ptr)&windowIndex, sizeof(windowIndex), &absoluteDesc);
  125.     if (noErr != err) goto done;
  126.     
  127.     err = CreateObjSpecifier(cDocument, &nullDesc, formAbsolutePosition,
  128.                                                 &absoluteDesc, false, result);
  129.  
  130. done:
  131.     if (absoluteDesc.dataHandle)
  132.         AEDisposeDesc(&absoluteDesc);
  133.     
  134.     return(err);
  135. } // MakeDocumentObj
  136.  
  137.  
  138. OSErr    MakeTextObjFromToken(TextToken* theToken, AEDesc* result)
  139. {
  140.     OSErr    err;
  141.  
  142.     err = GetTextTokenObjectSpecifier(theToken, result);
  143.     
  144.     return(err);
  145. }
  146.  
  147.  
  148. OSErr    MakeSelectedTextObj(WindowPtr theWindow, TEHandle theTextEditHandle, AEDesc* result)
  149. {
  150.     return( MakeTextObj(theWindow, (**theTextEditHandle).selStart,
  151.                             (**theTextEditHandle).selEnd, result));
  152. } // MakeSelectedTextObj
  153.  
  154.  
  155. OSErr    MakeTextObj(WindowPtr theWindow, short selStart, short selEnd, AEDesc* result)
  156. {
  157.     TextToken    aToken;
  158.     OSErr        err;
  159.     
  160.     aToken.tokenWindow = theWindow;
  161.     aToken.tokenOffset = selStart + 1;
  162.     aToken.tokenLength = selEnd - selStart;
  163.  
  164.     err = MakeTextObjFromToken(&aToken, result);
  165.  
  166.     return(err);
  167. }
  168.  
  169. OSErr    SendSelectionEvent(DPtr docPtr)
  170. {
  171.     AEAddressDesc    ourAddress = {typeNull, NULL};
  172.     AppleEvent        selectEvent = {typeNull, NULL},
  173.                     ignoreReply = {typeNull, NULL};
  174.     AEDesc            textObj = {typeNull, NULL};
  175.     OSErr            err;
  176.  
  177.  
  178.     err = MakeSelfAddress(&ourAddress);
  179.     if (noErr != err) goto done;
  180.     
  181.         // Build an object to represent the current document's selection
  182.         // MakeSelectedTextObj
  183.     err = MakeSelectedTextObj(docPtr->theWindow, docPtr->theText, &textObj);
  184.     if (noErr != err) goto done;
  185.     
  186.     err = AECreateAppleEvent(kAEMiscStandards, kAESelect, &ourAddress, 0, 0, &selectEvent);    
  187.     if (noErr != err) goto done;
  188.     
  189.         // add parameter
  190.     err = AEPutParamDesc(&selectEvent, keyDirectObject, &textObj);
  191.     if (noErr != err) goto done;
  192.                     
  193.         // and now send the message
  194.     err = AESend(&selectEvent, &ignoreReply, kAENoReply, kAEHighPriority, kAEDefaultTimeout, NULL, NULL);
  195.     if (noErr != err) goto done;
  196.  
  197. done:    
  198.     if (ourAddress.dataHandle) 
  199.         AEDisposeDesc(&ourAddress);
  200.     if (selectEvent.dataHandle) 
  201.         AEDisposeDesc(&selectEvent);
  202.     if (ignoreReply.dataHandle) 
  203.         AEDisposeDesc(&ignoreReply);
  204.     if (textObj.dataHandle) 
  205.         AEDisposeDesc(&textObj);
  206.  
  207.     return(err);
  208. }
  209.  
  210. void    DoEditCommand(DPtr theDocument, editCommandType whatCommand)
  211. {
  212.     AEAddressDesc    ourAddress = {typeNull, NULL};
  213.     AppleEvent        editCommandEvent = {typeNull, NULL},
  214.                     ignoreReply = {typeNull, NULL};
  215.     AEEventID        theEventID;
  216.     AEEventClass    theEventClass;
  217.     OSErr            err;
  218.     
  219.     err = SendSelectionEvent(theDocument);
  220.     if (noErr != err) goto done;
  221.  
  222.         // Now create and send the appropriate cut, copy, paste or clear AppleEvent
  223.     
  224.     switch (whatCommand)
  225.     {
  226.         case  editCutCommand:
  227.             theEventID = kAECut;
  228.             theEventClass = kAEMiscStandards;
  229.             break;
  230.             
  231.         case  editCopyCommand:
  232.             theEventID = kAECopy;
  233.             theEventClass = kAEMiscStandards;
  234.             break;
  235.  
  236.         case  editPasteCommand:
  237.             theEventID = kAEPaste;
  238.             theEventClass = kAEMiscStandards;
  239.             break;
  240.  
  241.         case  editClearCommand:
  242.             theEventID = kAEDelete;
  243.             theEventClass = kAECoreSuite;
  244.             break;
  245.     }
  246.     
  247.     err = MakeSelfAddress(&ourAddress);
  248.     if (noErr != err) goto done;
  249.             
  250.     err = AECreateAppleEvent(theEventClass, theEventID, &ourAddress, 0, 0, &editCommandEvent);    
  251.     if (noErr != err) goto done;
  252.             
  253.         // and now Send the message
  254.     err = AESend(&editCommandEvent, &ignoreReply, kAENoReply, kAEHighPriority, kAEDefaultTimeout, NULL, NULL);
  255.         
  256. done:
  257.     if (ourAddress.dataHandle) 
  258.         AEDisposeDesc(&ourAddress);
  259.     if (editCommandEvent.dataHandle) 
  260.         AEDisposeDesc(&editCommandEvent);
  261.     if (ignoreReply.dataHandle) 
  262.         AEDisposeDesc(&ignoreReply);
  263.  
  264. } // DoEditCommand
  265.  
  266. void    IssueCutCommand(DPtr theDocument)
  267. {            
  268.     DoEditCommand(theDocument, editCutCommand);
  269. } 
  270.  
  271. void    IssueCopyCommand(DPtr theDocument)
  272. {
  273.     DoEditCommand(theDocument, editCopyCommand);
  274. }
  275.  
  276. void    IssuePasteCommand(DPtr theDocument)
  277. {
  278.     DoEditCommand(theDocument, editPasteCommand);    
  279. }
  280.  
  281. void    IssueClearCommand(DPtr theDocument)
  282. {
  283.     DoEditCommand(theDocument, editClearCommand);    
  284. }
  285.  
  286. // ---------------------------------------------------------------------
  287. //    Name :         SendAESetObjProp
  288. //    Function :    Creates a property object from an object,
  289. //                a property type and its data and sends it to
  290. //                the requested address, and cleans up zapping params too
  291. // ---------------------------------------------------------------------
  292.  
  293. OSErr    SendAESetObjProp(AEDesc *theObj, DescType theProp, AEDesc *theData, AEAddressDesc *toWhom)
  294. {
  295.     AEDesc        propObjSpec;
  296.     AppleEvent    myAppleEvent;
  297.     AppleEvent    defReply;
  298.     OSErr        myErr;
  299.     OSErr        ignoreErr;
  300.     AEDesc        theProperty;
  301.         
  302.     // create an object spec that represents the property of the given object
  303.     
  304.     myErr = AECreateDesc(typeType, (Ptr)&theProp, sizeof(theProp), &theProperty);
  305.     if (myErr==noErr)
  306.         myErr = CreateObjSpecifier(cProperty, theObj, formPropertyID,
  307.                                         &theProperty, true, &propObjSpec);    
  308.         
  309.     // create event
  310.     
  311.     if (myErr==noErr)
  312.         myErr = AECreateAppleEvent(kAECoreSuite, kAESetData, toWhom, 0, 0, &myAppleEvent);
  313.         
  314.     // add prop obj spec to the event
  315.     
  316.     if (myErr==noErr)
  317.         myErr = AEPutParamDesc(&myAppleEvent, keyDirectObject, &propObjSpec);
  318.     
  319.     // add prop data to the event
  320.     
  321.     if (myErr==noErr)
  322.         myErr = AEPutParamDesc(&myAppleEvent,keyAEData, theData);
  323.     
  324.     // send event
  325.     
  326.     if (myErr==noErr)
  327.         myErr = AESend(&myAppleEvent, &defReply, kAENoReply+kAEAlwaysInteract,
  328.                                     kAENormalPriority, kAEDefaultTimeout, nil, nil);
  329.     
  330.     if (myAppleEvent.dataHandle)
  331.         ignoreErr = AEDisposeDesc(&myAppleEvent);
  332.         
  333.     if (&propObjSpec.dataHandle)
  334.       ignoreErr = AEDisposeDesc(&propObjSpec);
  335.     
  336.     if (theData->dataHandle)
  337.         ignoreErr = AEDisposeDesc(theData);
  338.     
  339.     if (toWhom->dataHandle)
  340.         ignoreErr = AEDisposeDesc(toWhom);
  341.     
  342.     return(myErr);
  343. } // SendAESetObjProp
  344.  
  345.  
  346. void    IssueFontCommand(DPtr theDocument, short theItem)
  347. {
  348.     Str255            name;
  349.     AEDesc            strDesc;
  350.     AEAddressDesc    theAddress;
  351.     AEDesc            selTextObj;
  352.     OSErr            err;
  353.         
  354.     err = MakeSelfAddress(&theAddress);
  355.     
  356.     err = MakeSelectedTextObj(theDocument->theWindow, theDocument->theText, &selTextObj);
  357.     
  358.     GetMenuItemText(myMenus[fontM], theItem, name);
  359.     
  360.     if (err==noErr)
  361.         err  = AECreateDesc(typeChar, (Ptr)&name[1], name[0], &strDesc);
  362.     
  363.     if (err==noErr)
  364.         err  = SendAESetObjProp(&selTextObj, pFont, &strDesc, &theAddress);                                                            
  365. }
  366.  
  367. // Window property routines
  368.  
  369. void    IssueZoomCommand(WindowPtr whichWindow, short whichPart)
  370. {
  371.     Boolean       zoomBool;
  372.     AEDesc        zoomDesc;
  373.     AEAddressDesc selfAddr;
  374.     AEDesc        frontWinObj;
  375.     OSErr         err;
  376.  
  377.     err = MakeSelfAddress(&selfAddr);
  378.     
  379.     err = MakeWindowObj(whichWindow, &frontWinObj);
  380.     
  381.     zoomBool = (whichPart==inZoomOut);
  382.  
  383.     err = AECreateDesc(typeBoolean, (Ptr)&zoomBool, sizeof(zoomBool), &zoomDesc);
  384.                                             
  385.     err = SendAESetObjProp(&frontWinObj, pIsZoomed, &zoomDesc, &selfAddr);                                                            
  386. } // IssueZoomCommand
  387.  
  388. void    IssueCloseCommand(WindowPtr whichWindow)
  389. {
  390.     AEAddressDesc  selfAddr;
  391.     AEDesc         frontWinObj;
  392.     OSErr          err;
  393.     OSErr          ignoreErr;
  394.     AppleEvent     closeCommandEvent;
  395.     AppleEvent     ignoreReply;
  396.  
  397.     frontWinObj.dataHandle = nil;
  398.     
  399.     err = MakeSelfAddress(&selfAddr);
  400.     
  401.     err = MakeWindowObj(whichWindow, &frontWinObj);
  402.                                                         
  403.     err = AECreateAppleEvent( kAECoreSuite, kAEClose, &selfAddr, 0, 0, &closeCommandEvent) ;                
  404.     
  405.     // add parameter - the window to close    
  406.     if (err==noErr) 
  407.         err = AEPutParamDesc(&closeCommandEvent, keyDirectObject, &frontWinObj);
  408.         
  409.     if (err==noErr) 
  410.         err = AESend(&closeCommandEvent,&ignoreReply,kAENoReply+kAEAlwaysInteract,kAEHighPriority,10000,nil, nil);
  411.     
  412.     if (closeCommandEvent.dataHandle) 
  413.         ignoreErr = AEDisposeDesc(&closeCommandEvent);
  414.     
  415.     if (selfAddr.dataHandle) 
  416.         ignoreErr = AEDisposeDesc(&selfAddr);
  417.         
  418.     if (frontWinObj.dataHandle) 
  419.         ignoreErr = AEDisposeDesc(&frontWinObj);
  420.         
  421. } // IssueCloseCommand
  422.  
  423. void    IssueSizeWindow(WindowPtr whichWindow, short newHSize, short newVSize)
  424. {
  425.     Rect          sizeRect;
  426.     Rect          contentRect;
  427.     short         edgeSize;
  428.     AEDesc        sizeDesc;
  429.     AEAddressDesc selfAddr;
  430.     AEDesc        frontWinObj;
  431.     OSErr         err;
  432.  
  433.     sizeRect    = (**(((WindowPeek)whichWindow)->strucRgn)).rgnBBox;
  434.     contentRect = (**(((WindowPeek)whichWindow)->contRgn)).rgnBBox;
  435.     
  436.     edgeSize = sizeRect.right-sizeRect.left-(contentRect.right-contentRect.left);
  437.     sizeRect.right = sizeRect.left+newHSize+edgeSize;
  438.     
  439.     edgeSize = sizeRect.bottom-sizeRect.top-(contentRect.bottom-contentRect.top);
  440.     sizeRect.bottom = sizeRect.top+newVSize+edgeSize;
  441.     
  442.     err = MakeSelfAddress(&selfAddr);
  443.     
  444.     err = MakeWindowObj(whichWindow, &frontWinObj);
  445.     
  446.     if (err==noErr)
  447.         err = AECreateDesc(typeQDRectangle, (Ptr)&sizeRect, sizeof(sizeRect), &sizeDesc);
  448.     
  449.     if (err==noErr)
  450.         err  = SendAESetObjProp(&frontWinObj, pBounds, &sizeDesc, &selfAddr);                                                            
  451. } // IssueSizeWindow
  452.  
  453. void    IssueMoveWindow(WindowPtr whichWindow, Rect sizeRect)
  454. {
  455.     AEDesc        sizeDesc;
  456.     AEAddressDesc selfAddr;
  457.     AEDesc        frontWinObj;
  458.     OSErr         err;
  459.  
  460.     err = MakeSelfAddress(&selfAddr);
  461.     
  462.     err = MakeWindowObj(whichWindow, &frontWinObj);
  463.         
  464.     if (err==noErr)
  465.         err = AECreateDesc(typeQDRectangle, (Ptr)&sizeRect, sizeof(sizeRect), &sizeDesc);
  466.     
  467.     if (err==noErr)        
  468.         err = SendAESetObjProp(&frontWinObj, pBounds, &sizeDesc, &selfAddr);                                                            
  469. } // IssueMoveWindow
  470.  
  471. void    IssuePageSetupWindow(WindowPtr whichWindow, TPrint thePageSetup)
  472. {
  473.     AEDesc        sizeDesc;
  474.     AEAddressDesc selfAddr;
  475.     AEDesc        frontWinObj;
  476.     OSErr         err;
  477.  
  478.     err = MakeSelfAddress(&selfAddr);
  479.     
  480.     err = MakeWindowObj(whichWindow, &frontWinObj);
  481.     
  482.     if (err==noErr)
  483.         err = AECreateDesc(typeTPrint, (Ptr)&thePageSetup, sizeof(thePageSetup), &sizeDesc);
  484.                                              
  485.     if (err==noErr)
  486.         err = SendAESetObjProp(&frontWinObj, pPageSetup, &sizeDesc, &selfAddr);                                                            
  487.                                                  
  488. } //IssuePageSetupWindow
  489.  
  490.  
  491. void IssuePrintWindow(WindowPtr whichWindow, Boolean useDialog)
  492. {
  493.     AEAddressDesc selfAddr;
  494.     AEDesc        frontWinObj;
  495.     OSErr         err;
  496.     OSErr         ignoreErr;
  497.     AppleEvent    printCommandEvent;
  498.     AppleEvent    ignoreReply;
  499.     AESendMode    sendModeFlags;
  500.  
  501.     err = MakeSelfAddress(&selfAddr);
  502.     
  503.     err = MakeWindowObj(whichWindow, &frontWinObj);
  504.                                                         
  505.     err = AECreateAppleEvent(kCoreEventClass, kAEPrintDocuments, &selfAddr, 0, 0, &printCommandEvent) ;                
  506.  
  507.     //    add parameter - the window to print
  508.  
  509.     if (err==noErr) 
  510.         err = AEPutParamDesc(&printCommandEvent, keyDirectObject, &frontWinObj);
  511.         
  512.     if (err==noErr)
  513.     {
  514.         sendModeFlags = kAENoReply;
  515.         if (useDialog)
  516.             sendModeFlags = sendModeFlags + kAEAlwaysInteract;
  517.         else
  518.             sendModeFlags = sendModeFlags + kAENeverInteract;
  519.         err = AESend(&printCommandEvent,&ignoreReply,sendModeFlags,kAEHighPriority,10000,nil, nil);
  520.     }
  521.     
  522.     if (printCommandEvent.dataHandle)
  523.         ignoreErr = AEDisposeDesc(&printCommandEvent);
  524.     
  525.     if (frontWinObj.dataHandle) 
  526.         err = AEDisposeDesc(&frontWinObj);
  527.         
  528.     if (selfAddr.dataHandle) 
  529.         err = AEDisposeDesc(&selfAddr);
  530.         
  531. } // IssuePrintWindow
  532.  
  533. OSErr    IssueAEOpenDoc(FSSpec myFSSpec)
  534. // send OpenDocs AppleEvent to myself, with a one-element list
  535. // containing the given file spec
  536. //
  537. // NOTES : the core AEOpenDocs event is defined as taking a list of
  538. //        aliases (not file specs) as its direct parameter.  However,
  539. //        we can send the file spec instead and depend on AppleEvents'
  540. //        automatic coercion.  In fact, we don't really even have to put 
  541. //        in a list; AppleEvents will coerce a descriptor into a 1-element
  542. //        list if called for.  In this routine, though, we'll make the
  543. //        list for demonstration purposes.
  544. {
  545.     AppleEvent    myAppleEvent;
  546.     AppleEvent    defReply;
  547.     AEDescList    docList;
  548.     AEAddressDesc selfAddr;
  549.     OSErr         myErr;
  550.     OSErr         ignoreErr;
  551.     
  552.     myAppleEvent.dataHandle = nil;
  553.     docList.dataHandle  = nil;
  554.     selfAddr.dataHandle = nil;
  555.     defReply.dataHandle = nil;
  556.         
  557.     //    Create empty list and add one file spec
  558.  
  559.     myErr = AECreateList(nil,0,false, &docList);
  560.     
  561.     if (myErr==noErr) 
  562.         myErr = AEPutPtr(&docList,1,typeFSS,(Ptr)&myFSSpec,sizeof(myFSSpec));
  563.         
  564.     //    Create a self address to send it to
  565.  
  566.     if (myErr==noErr) 
  567.         myErr = MakeSelfAddress(&selfAddr);
  568.         
  569.     if (myErr==noErr) 
  570.         myErr = AECreateAppleEvent(kCoreEventClass, kAEOpenDocuments, &selfAddr,
  571.                                 kAutoGenerateReturnID,  kAnyTransactionID, &myAppleEvent);
  572.  
  573.     //    Put Params into our event and send it
  574.  
  575.     if (myErr == noErr) 
  576.         myErr = AEPutParamDesc(&myAppleEvent, keyDirectObject, &docList);
  577.  
  578.     myErr = AESend(&myAppleEvent, &defReply, kAENoReply+kAEAlwaysInteract, kAENormalPriority,
  579.                                                                      kAEDefaultTimeout, nil, nil);
  580.         
  581.     if (selfAddr.dataHandle) 
  582.         ignoreErr = AEDisposeDesc(&selfAddr);
  583.         
  584.     if (myAppleEvent.dataHandle) 
  585.         ignoreErr = AEDisposeDesc(&myAppleEvent);
  586.         
  587.     if (docList.dataHandle) 
  588.         ignoreErr = AEDisposeDesc(&docList);
  589.         
  590.     return(myErr);
  591.     
  592. } // IssueAEOpenDoc
  593.  
  594. void    IssueAENewWindow(void)
  595. // send the New Element event to myself with a null container
  596. {
  597.     AppleEvent    myAppleEvent;
  598.     AppleEvent    defReply;
  599.     AEAddressDesc selfAddr;
  600.     OSErr         myErr;
  601.     OSErr         ignoreErr;
  602.     DescType      elemClass;
  603.     
  604.     myAppleEvent.dataHandle = nil;
  605.     
  606.     //    Create the address of us
  607.     
  608.     myErr = MakeSelfAddress(&selfAddr);
  609.     
  610.     //    create event 
  611.     
  612.     myErr = AECreateAppleEvent(kAECoreSuite, kAECreateElement, &selfAddr,
  613.                                     kAutoGenerateReturnID, kAnyTransactionID, &myAppleEvent);
  614.     
  615.     //    attach desired class of new element
  616.     
  617.     elemClass = cWindow;
  618.     
  619.     if (myErr == noErr) 
  620.         myErr = AEPutParamPtr(&myAppleEvent, keyAEObjectClass, typeType,
  621.                                         (Ptr)&elemClass, sizeof(elemClass));
  622.         
  623.     //    send the event 
  624.     
  625.     if (myErr == noErr) 
  626.         myErr = AESend(&myAppleEvent, &defReply, kAENoReply+kAENeverInteract,
  627.                             kAENormalPriority, kAEDefaultTimeout, nil, nil);
  628.     //    Clean up - reply never created so don't throw away
  629.  
  630.     if (selfAddr.dataHandle) 
  631.         ignoreErr = AEDisposeDesc(&selfAddr);
  632.         
  633.     if (myAppleEvent.dataHandle) 
  634.         ignoreErr = AEDisposeDesc(&myAppleEvent);
  635.                 
  636. } // IssueAENewWindow
  637.  
  638. OSErr    IssueSaveCommand(WindowPtr theWindow, FSSpecPtr where)
  639. // send an AppleEvent Save Event to myself
  640. {
  641.     AEDesc        windowObj;
  642.     AppleEvent    myAppleEvent;
  643.     AppleEvent    defReply;
  644.     OSErr         myErr;
  645.     OSErr         ignoreErr;
  646.     AEAddressDesc selfAddr;
  647.         
  648.     windowObj.dataHandle = nil;
  649.     myAppleEvent.dataHandle = nil;
  650.     
  651.     myErr = MakeWindowObj(theWindow, &windowObj);
  652.             
  653.     if (myErr==noErr) 
  654.         myErr = MakeSelfAddress(&selfAddr);
  655.     
  656.         //    Build event
  657.  
  658.     if (myErr == noErr) 
  659.         myErr = AECreateAppleEvent(kAECoreSuite, kAESave, &selfAddr,
  660.                             kAutoGenerateReturnID, kAnyTransactionID, &myAppleEvent);
  661.   
  662.         //    say which window
  663.  
  664.     if (myErr==noErr) 
  665.         myErr = AEPutParamDesc(&myAppleEvent, keyDirectObject, &windowObj);
  666.  
  667.         //    add optional file param if we need to
  668.  
  669.     if (where) 
  670.         if (myErr==noErr) 
  671.             myErr = AEPutParamPtr(&myAppleEvent, keyAEDestination, typeFSS,
  672.                                                     (Ptr)where, sizeof(FSSpec));
  673.     
  674.         // send the event
  675.  
  676.     if (myErr==noErr) 
  677.         myErr  = AESend(&myAppleEvent, &defReply, kAENoReply+kAENeverInteract,
  678.                                     kAENormalPriority, kAEDefaultTimeout, nil, nil);
  679.       
  680.     if (selfAddr.dataHandle) 
  681.         ignoreErr = AEDisposeDesc(&selfAddr);
  682.       
  683.     if (windowObj.dataHandle) 
  684.         ignoreErr = AEDisposeDesc(&windowObj);
  685.         
  686.     if (myAppleEvent.dataHandle) 
  687.         myErr = AEDisposeDesc(&myAppleEvent);
  688.         
  689.     return(myErr);
  690. }    // IssueSaveCommand
  691.  
  692. OSErr    IssueRevertCommand(WindowPtr theWindow)
  693.     // send an AppleEvent Revert Event to myself
  694. {
  695.     AEDesc        windowObj;
  696.     AppleEvent    myAppleEvent;
  697.     AppleEvent    defReply;
  698.     OSErr         myErr;
  699.     OSErr         ignoreErr;
  700.     AEAddressDesc selfAddr;
  701.     
  702.     windowObj.dataHandle = nil;
  703.     myAppleEvent.dataHandle = nil;
  704.     
  705.     myErr = MakeWindowObj(theWindow, &windowObj);
  706.                 
  707.     if (myErr==noErr) 
  708.         myErr = MakeSelfAddress(&selfAddr);
  709.         
  710.     // Build event
  711.     
  712.     if (myErr == noErr) 
  713.         myErr  = AECreateAppleEvent(kAEMiscStandards, kAERevert, &selfAddr,
  714.                                     kAutoGenerateReturnID, kAnyTransactionID, &myAppleEvent);
  715.     // say which window
  716.     
  717.     if (myErr == noErr) 
  718.         myErr = AEPutParamDesc(&myAppleEvent, keyDirectObject, &windowObj);
  719.     //    send the event
  720.  
  721.     if (myErr==noErr) 
  722.         myErr  = AESend(&myAppleEvent, &defReply, kAENoReply+kAENeverInteract,
  723.                                 kAENormalPriority, kAEDefaultTimeout, nil, nil);
  724.         
  725.     if (windowObj.dataHandle) 
  726.         ignoreErr = AEDisposeDesc(&windowObj);
  727.         
  728.     if (myAppleEvent.dataHandle) 
  729.         ignoreErr = AEDisposeDesc(&myAppleEvent);
  730.         
  731.     if (selfAddr.dataHandle) 
  732.         ignoreErr = AEDisposeDesc(&selfAddr);
  733.         
  734.     return(myErr);
  735. } // IssueRevertCommand
  736.  
  737. // ----------------------------------------------------
  738. //    Name :         IssueQuitCommand
  739. //    Purpose :    Sends self a Quit AppleEvent
  740. // ----------------------------------------------------
  741. OSErr    IssueQuitCommand(void)
  742. {
  743.     AppleEvent    myAppleEvent;
  744.     AppleEvent    defReply;
  745.     OSErr         myErr;
  746.     OSErr         ignoreErr;
  747.     AEAddressDesc selfAddr;
  748.     DescType      mySaveOpt;
  749.     
  750.     myAppleEvent.dataHandle = nil;
  751.     selfAddr.dataHandle     = nil;
  752.                         
  753.     myErr = MakeSelfAddress(&selfAddr);
  754.         
  755.     //    Build event
  756.     
  757.     if (myErr == noErr) 
  758.         myErr  = AECreateAppleEvent(kCoreEventClass, kAEQuitApplication, &selfAddr,
  759.                                         kAutoGenerateReturnID, kAnyTransactionID, &myAppleEvent);
  760.     //    say which save option
  761.     
  762.     mySaveOpt = kAEAsk;
  763.     
  764.     if (myErr == noErr) 
  765.         myErr = AEPutParamPtr(&myAppleEvent, keyAESaveOptions, typeEnumerated,
  766.                                                 (Ptr)&mySaveOpt, sizeof(mySaveOpt));
  767.     //    send the event
  768.  
  769.     if (myErr==noErr) 
  770.         myErr  = AESend(&myAppleEvent, &defReply, kAENoReply+kAEAlwaysInteract,
  771.                                     kAENormalPriority, kAEDefaultTimeout, nil, nil);
  772.                     
  773.     if (myAppleEvent.dataHandle) 
  774.         ignoreErr = AEDisposeDesc(&myAppleEvent);
  775.         
  776.     if (selfAddr.dataHandle) 
  777.         ignoreErr = AEDisposeDesc(&selfAddr);
  778.         
  779.     return(myErr);
  780. } // IssueQuitCommand
  781.  
  782. #define kOK 1
  783. #define kCancel 2
  784. #define kOtherSize 4
  785. #define kOutlineItem 5
  786.  
  787. Boolean    PoseSizeDialog(long *whatSize)
  788. {
  789.     GrafPtr   savedPort;
  790.     DialogPtr aDialog;
  791.     Str255    aString;
  792.     short     itemHit;
  793.  
  794.     GetPort(&savedPort);
  795.     aDialog = GetNewDialog(1004, nil, (WindowPtr)-1);
  796.     ShowWindow(aDialog);
  797.     SetPort(aDialog);
  798.     
  799.     AdornDefaultButton(aDialog, kOutlineItem);
  800.      
  801.         //set the edittext button to contain the right size
  802.     NumToString(*whatSize, aString);
  803.     SetText(aDialog, kOtherSize, aString);
  804.  
  805.     do
  806.     {
  807.         ModalDialog(nil, &itemHit);
  808.     } while ((itemHit!=kOK) && (itemHit!=kCancel));
  809.     
  810.     if (itemHit == kOK) 
  811.         RetrieveText(aDialog, kOtherSize, aString);
  812.  
  813.     DisposeDialog(aDialog);
  814.     SetPort(savedPort);
  815.     
  816.     if (itemHit == kOK) 
  817.     {
  818.         // set the new size of the text
  819.         StringToNum(aString, whatSize);
  820.         if ((*whatSize<1) || (*whatSize>2000)) 
  821.             *whatSize = 12;
  822.     }
  823.  
  824.     return(itemHit == kOK);
  825. }
  826.  
  827. void    IssueSizeCommand(DPtr theDocument,short theItem)
  828. {
  829.     Str255        name;
  830.     AEDesc        sizeDesc;
  831.     AEAddressDesc theAddress;
  832.     OSErr         err;
  833.     AEDesc        selTextObj;
  834.     
  835.         // Vars to do with menu processing
  836.     short     lastSize;
  837.     short     upItem;
  838.     short     downItem;
  839.     short     otherItem;
  840.     long      theSize;
  841.     TextStyle theStyle;
  842.     short     lineHeight;
  843.     short     fontAscent;
  844.         
  845.     err = MakeSelfAddress(&theAddress);
  846.     
  847.     err = MakeSelectedTextObj(theDocument->theWindow, theDocument->theText, &selTextObj);        
  848.  
  849.         // check if the item is on the Size menu
  850.         // remembering that we can add and delete items from it
  851.     lastSize  = CountMItems(myMenus[sizeM]) - 5;
  852.     upItem    = lastSize + 2;
  853.     downItem  = upItem + 1;
  854.     otherItem = downItem + 2;
  855.   
  856.     TEGetStyle((**(theDocument->theText)).selStart, &theStyle, &lineHeight,
  857.                                             &fontAscent, theDocument->theText);
  858.     
  859.     GetMenuItemText(myMenus[sizeM], theItem, name);
  860.  
  861.     if (theItem <= lastSize)
  862.     {
  863.         GetMenuItemText(myMenus[sizeM], theItem, name);
  864.         StringToNum(name, &theSize);
  865.     }
  866.     else if (theItem == upItem)  
  867.         theSize = theStyle.tsSize + 1;
  868.     else if (theItem == downItem)
  869.         theSize = theStyle.tsSize - 1;
  870.     else if (theItem == otherItem) 
  871.     {
  872.         theSize = theStyle.tsSize;
  873.         if (!PoseSizeDialog(&theSize))
  874.             return;
  875.     }
  876.  
  877.     if (err==noErr)
  878.         err = CreateOffsetDescriptor(theSize, &sizeDesc);
  879.     
  880.     if (err==noErr)
  881.         err = SendAESetObjProp(&selTextObj, pPointSize, &sizeDesc, &theAddress);
  882. } // IssueSizeCommand
  883.  
  884. void    IssueStyleCommand(DPtr theDocument, short theItem)
  885. {
  886.     Style         theFace;
  887.     OSErr         err;
  888.     AEDesc        result;
  889.     AEAddressDesc selfAddr;
  890.     AEDesc        selTextObj;
  891.     TextStyle     theStyle;
  892.     short         lineHeight;
  893.     short         fontAscent;
  894.         
  895.     TEGetStyle((**(theDocument->theText)).selStart, &theStyle,
  896.                     &lineHeight, &fontAscent, theDocument->theText);
  897.     
  898.     theFace = 0;
  899.  
  900.     switch (theItem)
  901.     {
  902.         case cPlain:
  903.             theFace = 0;
  904.             break;
  905.         case cBold:
  906.             theFace = bold;
  907.             break;
  908.         case cItalic:
  909.             theFace = italic;
  910.             break;
  911.         case cUnderline:
  912.             theFace = underline;
  913.             break;
  914.         case cOutline:
  915.             theFace = outline;
  916.             break;
  917.         case cShadow:
  918.             theFace = shadow;
  919.             break;
  920.         case cCondense:
  921.             theFace = condense;
  922.             break;
  923.         case cExtend:
  924.             theFace = extend;
  925.             break;
  926.     } // of switch
  927.  
  928.     if (theFace==0)
  929.         err = BuildTypeTextStylesDesc(0, bold+italic+underline+outline+shadow+condense+extend, &result);
  930.     else if (theFace & theStyle.tsFace)
  931.         err = BuildTypeTextStylesDesc(0, theFace, &result);
  932.     else
  933.         err = BuildTypeTextStylesDesc(theFace, 0, &result);
  934.     
  935.     err = MakeSelfAddress(&selfAddr);
  936.     
  937.     if (err==noErr)
  938.         err = MakeSelectedTextObj(theDocument->theWindow, theDocument->theText, &selTextObj);
  939.     
  940.     if (err==noErr)
  941.         err = SendAESetObjProp(&selTextObj, pTextStyles, &result, &selfAddr);
  942. } // IssueStyleCommand
  943.  
  944.  
  945. OSErr    IssueSetDataObjToBufferContents(const AEDesc* theObj)
  946. { 
  947.     OSErr            myErr;
  948.     OSErr            ignoreErr;
  949.     AEAddressDesc    theAddress;
  950.     AppleEvent        myAppleEvent;
  951.     AppleEvent        defReply;
  952.  
  953.     myErr = MakeSelfAddress(&theAddress);
  954.     
  955.     // create event
  956.     
  957.     if (myErr==noErr)
  958.         myErr = AECreateAppleEvent(kAECoreSuite, kAESetData, &theAddress,
  959.                                                         0, 0, &myAppleEvent);
  960.         
  961.     // add prop obj spec to the event
  962.     
  963.     if (myErr==noErr)
  964.         myErr = AEPutParamDesc(&myAppleEvent, keyDirectObject, theObj);
  965.     
  966.     // add prop data to the event
  967.     
  968.     if (myErr==noErr)
  969.         myErr = AEPutParamPtr(&myAppleEvent, keyAEData, typeChar,
  970.                                     (Ptr)gTypingBuffer, gCharsInBuffer);
  971.                                                     
  972.     // send event
  973.     
  974.     if (myErr==noErr)
  975.      if (gRecordingImplemented)
  976.          myErr = AESend(&myAppleEvent, &defReply, kAENoReply+kAEDontExecute,
  977.                                      kAENormalPriority, kAEDefaultTimeout, nil, nil);
  978.  
  979.     if (theAddress.dataHandle)
  980.         ignoreErr = AEDisposeDesc(&theAddress);
  981.         
  982.     if (myAppleEvent.dataHandle)
  983.         ignoreErr = AEDisposeDesc(&myAppleEvent);
  984.         
  985.     return(myErr);
  986. }
  987.  
  988. void    AddKeyToTypingBuffer(DPtr theDocument, char theKey)
  989. {
  990.     OSErr myErr;
  991.     OSErr ignoreErr;
  992.     
  993.     if (theKey==BS || theKey==FS || theKey==GS || theKey==RS || theKey==US)
  994.     {
  995.         FlushAndRecordTypingBuffer();
  996.         if (theKey==BS)
  997.         {
  998.             if ((**theDocument->theText).selStart!=(**theDocument->theText).selEnd)
  999.             {
  1000.                 myErr = MakeTextObj(theDocument->theWindow,
  1001.                                     (**theDocument->theText).selStart,
  1002.                                     (**theDocument->theText).selEnd,
  1003.                                     &gTypingTargetObject);
  1004.             }
  1005.             else
  1006.             {
  1007.                 myErr = MakeTextObj(theDocument->theWindow,
  1008.                                     (**theDocument->theText).selStart-1,
  1009.                                     (**theDocument->theText).selStart,
  1010.                                     &gTypingTargetObject);
  1011.             }
  1012.                 
  1013.             myErr = IssueSetDataObjToBufferContents(&gTypingTargetObject);
  1014.             
  1015.             ignoreErr = AEDisposeDesc(&gTypingTargetObject);
  1016.             
  1017.             gTypingTargetObject.dataHandle = nil;
  1018.         }
  1019.     }
  1020.     else
  1021.     {
  1022.         if (gCharsInBuffer==0)
  1023.             myErr = MakeSelectedTextObj(theDocument->theWindow, theDocument->theText,
  1024.                                                                     &gTypingTargetObject);
  1025.  
  1026.         gTypingBuffer[gCharsInBuffer++] = theKey;
  1027.     }
  1028. }
  1029.  
  1030. void    FlushAndRecordTypingBuffer(void)
  1031. { 
  1032.     OSErr  myErr;
  1033.     OSErr  ignoreErr;
  1034.  
  1035.     if (gCharsInBuffer != 0)
  1036.     {
  1037.         myErr = IssueSetDataObjToBufferContents(&gTypingTargetObject);
  1038.         
  1039.         if (gTypingTargetObject.dataHandle)
  1040.             ignoreErr = AEDisposeDesc(&gTypingTargetObject);
  1041.     }
  1042.         
  1043.     gCharsInBuffer = 0;
  1044.     gTypingTargetObject.dataHandle = 0;
  1045. }
  1046.  
  1047.     
  1048. void    StyleTokConst(short theStyleItem, DescType *thekConst)
  1049. {
  1050.     switch (theStyleItem)
  1051.     {
  1052.         case bold:
  1053.             *thekConst = kAEBold;
  1054.             break;
  1055.             
  1056.         case italic:
  1057.             *thekConst = kAEItalic;
  1058.             break;
  1059.             
  1060.         case underline:
  1061.             *thekConst = kAEUnderline;
  1062.             break;
  1063.             
  1064.         case outline:
  1065.             *thekConst = kAEOutline;
  1066.             break;
  1067.             
  1068.         case shadow:
  1069.             *thekConst = kAEShadow;
  1070.             break;
  1071.             
  1072.         case condense:
  1073.             *thekConst = kAECondensed;
  1074.             break;
  1075.             
  1076.         case extend:
  1077.             *thekConst = kAEExpanded;
  1078.             break;
  1079.     }
  1080. } // StyleTokConst
  1081.  
  1082. OSErr    BuildTypeTextStylesDesc(Style onStyles, Style offStyles, AEDesc *resultDesc)
  1083. {
  1084.  
  1085.     OSErr     myErr;
  1086.     OSErr     ignoreErr;
  1087.     short     myStyleItem;
  1088.     DescType  styleConst;
  1089.     AEDesc    onStylesDesc;
  1090.     AEDesc    offStylesDesc;
  1091.     AEDesc    dataDesc;
  1092.     
  1093.     onStylesDesc.dataHandle  = nil;
  1094.     offStylesDesc.dataHandle = nil;
  1095.     dataDesc.dataHandle  = nil;
  1096.  
  1097.     myErr = AECreateList(nil, 0, true,  &dataDesc);
  1098.     
  1099.     myErr = AECreateList(nil, 0, false, &onStylesDesc);
  1100.     myErr = AECreateList(nil, 0, false, &offStylesDesc);
  1101.     
  1102.     for (myStyleItem = bold; myStyleItem<=extend; myStyleItem = myStyleItem <<1)
  1103.         if (myErr==noErr)
  1104.         {
  1105.             StyleTokConst(myStyleItem, &styleConst);
  1106.             if (myStyleItem & onStyles)
  1107.                 myErr = AEPutPtr(&onStylesDesc,
  1108.                                     0,                // add to end of list
  1109.                                     typeEnumerated, // text for style name
  1110.                                     (Ptr)&styleConst,
  1111.                                     sizeof(styleConst));
  1112.             
  1113.             if (myStyleItem & offStyles)
  1114.                 myErr = AEPutPtr(&offStylesDesc,
  1115.                                     0,                // add to end of list
  1116.                                     typeEnumerated, // text for style name
  1117.                                     (Ptr)&styleConst,
  1118.                                     sizeof(styleConst));
  1119.         }
  1120.     
  1121.     if (myErr==noErr)
  1122.         myErr = AEPutKeyDesc(&dataDesc, keyAEOnStyles,  &onStylesDesc);
  1123.     
  1124.     if (myErr==noErr)
  1125.         myErr = AEPutKeyDesc(&dataDesc, keyAEOffStyles, &offStylesDesc);
  1126.     
  1127.     if (myErr==noErr)
  1128.         myErr = AECoerceDesc(&dataDesc, typeTextStyles, resultDesc);
  1129.         
  1130.     if (onStylesDesc.dataHandle)
  1131.         ignoreErr = AEDisposeDesc(&onStylesDesc);
  1132.         
  1133.     if (offStylesDesc.dataHandle)
  1134.         ignoreErr = AEDisposeDesc(&offStylesDesc);
  1135.         
  1136.     if (dataDesc.dataHandle)
  1137.         ignoreErr = AEDisposeDesc(&dataDesc);
  1138.  
  1139.     return(myErr);
  1140. }
  1141.  
  1142. OSErr    BuildTextStylesDesc(Style theStyle, AEDesc *resultDesc)
  1143. {
  1144.     short     myStyleItem;
  1145.     Style     onStyles;
  1146.     Style     offStyles;
  1147.             
  1148.     onStyles  = 0;
  1149.     offStyles = 0;
  1150.     
  1151.     for (myStyleItem = bold; myStyleItem<=extend; myStyleItem = myStyleItem <<1)
  1152.     {
  1153.         if (myStyleItem & theStyle)
  1154.             onStyles  = onStyles  + myStyleItem;
  1155.         else
  1156.             offStyles = offStyles + myStyleItem;
  1157.     }
  1158.  
  1159.     return(BuildTypeTextStylesDesc(onStyles, offStyles, resultDesc));
  1160.     
  1161. } // BuildTextStylesDesc
  1162.         
  1163. OSErr    BuildStyledTextDesc(TEHandle theHTE, short start, short howLong, AEDesc *resultDesc)
  1164. {
  1165.     AEDesc       listDesc;
  1166.     short        oldSelStart;
  1167.     short        oldSelEnd;
  1168.     StScrpHandle myStScrpHandle;
  1169.     OSErr        myErr;
  1170.     OSErr        ignoreErr;
  1171.     
  1172.     listDesc.dataHandle = nil;
  1173.     
  1174.     oldSelStart = (**theHTE).selStart;
  1175.     oldSelEnd   = (**theHTE).selEnd;
  1176.     
  1177.     TESetSelect(start-1, start+howLong-2, theHTE);
  1178.     
  1179.     myErr = AECreateList(nil, 0, true,  &listDesc);
  1180.     
  1181.     HLock((Handle)(**theHTE).hText);
  1182.                                                      
  1183.     if (myErr == noErr)
  1184.         myErr = AEPutKeyPtr(&listDesc, keyAEText, typeChar,
  1185.                             (Ptr)&(*(**theHTE).hText)[start-1], howLong);
  1186.                                                 
  1187.     HUnlock((Handle)(**theHTE).hText);
  1188.     
  1189.     myStScrpHandle = TEGetStyleScrapHandle(theHTE);
  1190.     
  1191.     if (myStScrpHandle)
  1192.     {
  1193.         HLock((Handle)myStScrpHandle);
  1194.         
  1195.         if (myErr==noErr)
  1196.             myErr = AEPutKeyPtr(&listDesc, keyAEStyles, typeScrapStyles,
  1197.                                     (Ptr)*myStScrpHandle, GetHandleSize((Handle)myStScrpHandle));
  1198.             
  1199.         HUnlock((Handle)myStScrpHandle);
  1200.     }    
  1201.     else
  1202.         myErr = AEPutKeyPtr(&listDesc, keyAEStyles, typeScrapStyles, (Ptr)nil, 0);
  1203.     
  1204.     if (myErr==noErr)
  1205.         myErr = AECoerceDesc(&listDesc, typeStyledText, resultDesc); // should be typeIntlText
  1206.     
  1207.     if (listDesc.dataHandle)
  1208.         ignoreErr = AEDisposeDesc(&listDesc);
  1209.     
  1210.     TESetSelect(oldSelStart, oldSelEnd, theHTE);
  1211.     
  1212.     return(myErr);
  1213. }
  1214.